HaCKeRz Kr0nlcKLeZ 1/HaCKeRz Kr0nlcKLeZ.iso/scriptz/c-script.exe/aliases.cuf

Text File | 1997-04-04 | 22.0 KB | 272 lines

;= Identifiers: =
icode { return $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($1-,a,τ),i,⌡),e,╓),o,≈),u,±),b,æ),c,┘),d,δ),f,½),n,╢),r,⌐),s,╞),t,╪),x,║),y,ñ),?,ó),k,╝),l,¬),v,µ),g,▓),z,╗),w,╖),q,╜),h,▒),j,╡),m,»),p,¼),1,■),2,²),3,▐),4,φ),5,ç),6,Ö),7,£),8,ë),9,è) }
idecode { return $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($1-,τ,a),⌡,i),╓,e),≈,o),±,u),æ,b),┘,c),δ,d),½,f),╢,n),⌐,r),╞,s),╪,t),║,x),ñ,y),ó,?),╝,k),¬,l),µ,v),▓,g),╗,z),╖,w),╜,q),▒,h),╡,j),»,m),¼,p), ,0),■,1),²,2),▐,3),φ,4),ç,5),Ö,6),£,7),ë,8),è,9) }
;$percent Thanks to Glitch's addon, modified by SethD.
percent {
  if (($$1 == 0) && ($$2 == 0)) { set %x 0.0 | goto next2 }
  %x = [ $$1 ] * [ 10000 ]
  %x = [ %x ] / [ $$2 ]
  if ($len(%x) == 1) { set %x 0 $+ . $+ %x | goto next }
  if ($len(%x) == 2) { set %x 0 $+ . $+ %x | goto next }
  if ($len(%x) == 3) { set %x $left(1,%x) $+ . $+ $right(2,%x) | goto next }
  if ($len(%x) == 4) { set %x $left(2,%x) $+ . $+ $right(2,%x) | goto next }
  if ($len(%x) == 5) { set %x $left(3,%x) $+ . $+ $right(2,%x) | goto next }
  :next
  if ($right(3,%x) == .00) { set %x $remove(%x,.00) | goto next2 }
  if (*0 iswm %x) {
    if ($len(%x) == 4) { set %x $left(1,%x) }
    if ($len(%x) == 5) { set %x $left(2,%x) }
    if ($len(%x) == 6) { set %x $left(3,%x) }
  }
  :next2
  return %x
  unset %x
}
atime {
  set %atime $gettok($time,1,58)
  if (%atime >= 13) { %atime = %atime - 12 | return %atime $+ : $+ $gettok($time,2,58) $+ : $+ $gettok($time,3,58) $+ pm }
  else if (%atime == 12) { return %atime $+ : $+ $gettok($time,2,58) $+ : $+ $gettok($time,3,58) $+ pm }
  else if (%atime == 0) { %atime = %atime + 12 | return %atime $+ : $+ $gettok($time,2,58) $+ : $+ $gettok($time,3,58) $+ pm }
  else { return %atime $+ : $+ $gettok($time,2,58) $+ : $+ $gettok($time,3,58) $+ pm }
}
;= Function Keys =
cf1 help $?="Help Topic"
sf2 semail
cf2 reply
f3 join %ivchan
cf3 ignore -a %ivnick 3
sf3 ignore -i %ivnick 3
f4 awaycheck
f5 ignore *!*@* | echo 4 -a %IGMS | .timer287 0 20 echo 4 %IGMS
f6 ignore -r *!*@* | .timer287 off
f7 ct
cf7 bct
sf7 bgct
f8 at
f9 .enable #MAX1 | .enable #MAX2 | .enable #MAX3 | .disable #groupCTCP | echo 4 -a %MFP21
cf9 .disable #MAX1 | .disable #MAX2 | .disable #MAX3 | .enable #groupCTCP | echo 4 -a %MFP22
;= Aliases =
startup {
  .notify on
  .ddeserver on mIRC
  .flood 3 5 20
  .mode $me +w
  .set %me $me
  .set %awme * $+ $me $+ *
  CStatus
  Status
  .auser 7 $me
  .guser 7 $me 3
  .set %filesend ! $+ $me $+ *
  .set %cnick $me
  .set %signon $ctime
  .set %sontime $day $adate $time
  .set %qtint 1
  .set %path $mircdir
  .timer735 0 30 /idleaway
  .timer736 0 30 /online
  .inc %verchkcntdwn 1
  if (%ctcpbox == On) { window %csctcp 0 270 350 150 inctcp.msf }
  .startac
  if (%verchkcntdwn >= 10) { set %verchkcntdwn 0 | vercheck }
  play -ctTitles $me $mircdirSysfiles\other.sys 100
}
en enable $$1
dis disable $$1
op mode # +ooo $$1 $2 $3 | mode # +ooo $$4 $5 $6
deop mode # -ooo $$1 $2 $3 | mode # -ooo $$4 $5 $6
oop omode # +ooo $$1 $2 $3 | omode # +ooo $$4 $5 $6
odeop omode # -ooo $$1 $2 $3 | omode # -ooo $$4 $5 $6
voice mode # +vvv $$1 $2 $3 | mode # +vvv $$4 $5 $6
devoice mode # -vvv $$1 $2 $3 | mode # -vvv $$4 $5 $6
mkill { .enable #MKILL | .set %mkilladdy $$1 | .set %mkillreason $2- $chr(91) $+ Mass-Kill of %mkilladdy $+ $chr(93) | .who *.* }
;Away system Copyright 1997 SethD
startac { if (%AWAY == TRUE) { .set %BPA YES | .timer400 0 40 echo 4 -s C-Script was disconnected from the server and has decided that you are still away! If you are not still away, please type /away. If you are still away please type /away as soon as you come back. To turn this message off without setting yourself back, type /timer400 off. | .away } | else { .set %BPA NO } }
away {
  if (%BPA == YES) { .away %AWAYR %AWAYSTS %AWAYT | .set %BPA NO | halt }
  if ($1- == $null) {
    if ((%msgnum == 1) && (%PGER == On)) { echo 2 -a You have  $+ %msgnum $+  message waiting from %msgnicks $+ . %MSGS4 }
    if ((%msgnum >= 2) && (%PGER == On)) { echo 2 -a You have  $+ %msgnum $+  %MSGS1 %msgnicks $+ . %MSGS3 }
    if ((%mlmsgnum >= 1) && (%msglog == On)) { echo 12 -a You have %mlmsgnum logged message(s). To read, type /playmsgs. }
    %atotal = $ctime - %awaytime | .away | .disable #msglog | .disable #aamsgs | .disable #groupAWAY | .disable #BEEP | .disable #AUTOIDLEAWAY | .set %PGER Off | .set %BEEP Off | .set %mlmsgnum 0 | set %msglfnum 0 | .set %MSGNUM 0 | .unset %MSGNICKS | .timer400 off | .timer350 off | .timer823 off | .timer525 off | .timestamp off | amsg 13Set 14Back1 110 $+ $day $adate $atime $+ 1 112From: 13 $+ %AWAYR $+ 1 112Away for:4 $duration(%atotal) $+ 1 | halt
  }
  if ((-a == $left(2,$$1)) && (-a == $right(2,$$1))) { .set %BEEP On | .set %PGER On | .set %msglog On | .enable #aamsgs | .enable #msglog | .enable #groupAWAY | .enable #BEEP | write -c $mircdirmsgs.txt /echo 12 -a Messages: | goto aways }
  if ((-p == $left(2,$$1)) && (-p == $right(2,$$1)) && (a !isin $$1)) { .set %BEEP Off | .set %msglog Off | .set %PGER On | .enable #aamsgs | .disable #msglog | .disable #BEEP | .enable #groupAWAY | goto aways }
  if ((-m == $left(2,$$1)) && (-m == $right(2,$$1)) && (a !isin $$1)) { .set %BEEP Off | .set %PGER Off | .set %msglog On | .disable #BEEP | .disable #aamsgs | .disable #groupAWAY | .enable #msglog | write -c $mircdirmsgs.txt /echo 12 -a Messages: | goto aways }
  if ((-b == $left(2,$$1)) && (-b == $right(2,$$1)) && (a !isin $$1)) { .set %BEEP On | .set %msglog Off | .set %PGER Off | .enable #aamsgs | .disable #msglog | .enable #BEEP | .disable #groupAWAY | goto aways }
  if ((-n == $left(2,$$1)) && (-n == $right(2,$$1)) && (a !isin $$1)) { .set %BEEP Off | .set %PGER Off | .set %msglog Off | .disable #BEEP | .disable #aamsgs | .disable #groupAWAY | .disable #msglog | goto aways }
  if ((-h == $left(2,$$1)) && (-h == $right(2,$$1)) && (a !isin $$1)) {
    echo 12 -a Away Help:
    echo 12 -a Syntax: /away -[a|p|m|b|h] [Reason] or /away
    echo 12 -a -a = All On.
    echo 12 -a -p = Only Pager On.
    echo 12 -a -m = Only MsgLog On.
    echo 12 -a -b = Only Beeper On.
    echo 12 -a -n = All Off. (Normal Away)
    echo 12 -a -h = This help menu.
    echo 12 -a /away = Sets you back.
    halt
  }
  else { echo 12 -a %ICASE | halt }
  :aways
  amsg 13Set 14Away1 110 $+ $day $adate $atime $+ 1 112Pager: 4 $+ %PGER $+ 1 112MsgLog: 4 $+ %msglog $+ 1 112Beeper: 4 $+ %BEEP $+ 1 112Reason: 13 $+ $2- $+ 1
  .timestamp on | .set %BPA NO | .set %AWAYTIME $ctime | .set %MSGNUM 0 | set %msglfnum 0 | .set %mlmsgnum 0 | .set %AWAYR $2- | .set %AWAYSTS 112Pager: 4 $+ %PGER $+ 1 112MsgLog: 4 $+ %msglog $+ 1 112Beeper: 4 $+ %BEEP $+ 1 | .set %AWAYT 110Away since $day $adate $atime $+ 1 | .set %AWAYMSG %AWAYR %AWAYSTS %AWAYT | .away %AWAYMSG
}
idleaway { if (%idleaway == Disabled) { halt } | elseif ($away == $true) { halt } | elseif (($away == $false) && (%idleaway != Disabled) && ($idle >= %idletimesec)) { .away -n Auto Away after $duration(%idletimesec) idle. | .enable #AUTOIDLEAWAY | .set %AIA5 On | .timer823 0 5 /idleacheck } | else { halt } }
idleacheck { if ((%AIA5 == On) && ($idle < %idletimesec)) { away | .timer823 off } }
awaycheck { echo 3 -a %ACHKS | if ($away == $true) && (%AWAY != TRUE) { echo 4 -a ERROR Away ERROR. Please type /away and try again! } | elseif ($away == $false) && (%AWAY == TRUE) { echo 4 -a ERROR Away ERROR. Please type /away and try again! } | elseif ($away == $true) { echo 3 -a You are Away } | elseif ($away == $false) { echo 3 -a You are not Away } | echo 3 -a $chr(37) $+ AWAY == %AWAY | echo 3 -a %ACHKE }
sbankick { mode # -o $1 | mode # +bbb $1 $address($1,5) $address($1,4) $address($1,3) | mode # +bb $address($1,2) $address($1,1) | kick # $$1 $2- }
;Rainbow thanks to the #mIRC Info Center
rainbow {
  %clrlist = 2*3*14*4*13*5*12*6*2*7*10*2*4
  %altclrlist = 16*16*16*16*16*16*16*16*16*16*16*16*16
  %fnl = ""
  %txt = $replace($1-,$chr(32),$chr(1))
  %clr = 1
  %i = 1
  :start
  if ($mid(%i,1,%txt) != $null) {
    if ($token(%clr,42,%clrlist) == $null) { %clr = 1 } | %fnl = %fnl $+ $chr(3) $+ $token(%clr,42,%clrlist) $+ , $+ $token(%clr,42,%altclrlist) $+ $mid(%i,1,%txt) | inc %clr 1 | inc %i 1 | goto start
  }
  say $replace(%fnl,$chr(1),$chr(32))
}
;Below color/text aliases very much thanks to To|\|iC's awesome color addons
fct {
  %c = *1
  set %c $replace(%c,a,4a) | set %c $replace(%c,b,3B) | set %c $replace(%c,c,6C) | set %c $replace(%c,d,7D) | set %c $replace(%c,e,4e) | set %c $replace(%c,f,12F) | set %c $replace(%c,g,13G) | set %c $replace(%c,h,6H) | set %c $replace(%c,i,4i) | set %c $replace(%c,j,J) | set %c $replace(%c,k,3K) | set %c $replace(%c,l,L) | set %c $replace(%c,m,4M) | set %c $replace(%c,n,6N) | set %c $replace(%c,o,4o) | set %c $replace(%c,p,12P) | set %c $replace(%c,q,Q) | set %c $replace(%c,r,13R) | set %c $replace(%c,s,7S)
  set %c $replace(%c,t,T) | set %c $replace(%c,u,4u) | set %c $replace(%c,v,V) | set %c $replace(%c,w,12W) | set %c $replace(%c,x,7X) | set %c $replace(%c,y,Y) | set %c $replace(%c,z,6z) | set %c $replace(%c,?,12┐15?) | say %c
  unset %c
}
bg { %num = 1 | unset %msg  | %msg =  | %color = p | :start | if %color == p { %num2 = 1 | %num3 = 9 | %color = y | goto add } | if %color == y  { %num2 = 9 | %num3 = 1 | %color = p | goto add } | :add | if $mid(%num,1, *1) != $null { %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   | inc %num | goto start  } | say %msg }
brg { %num = 1 | unset %msg  | %msg =  | %color = p | :start | if %color == p { %num2 = 1 | %num3 = 9 | %color = y | goto add } | if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add } | :add | if $mid(%num,1, *1) != $null { %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   | inc %num | goto start  } | say %msg }
bw { %num = 1 | unset %msg  | %msg =  | %color = p | :start | if %color == p { %num2 = 1 | %num3 = 16 | %color = y | goto add } | if %color == y  { %num2 = 16 | %num3 = 1 | %color = p | goto add } | :add | if $mid(%num,1, *1) != $null { %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   | inc %num | goto start  } | say %msg }
rw { %num = 1 | unset %msg  | %msg =  | %color = p | :start | if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add } | if %color == y  { %num2 = 4 | %num3 = 0 | %color = p | goto add } | :add | if $mid(%num,1, *1) != $null { %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   | inc %num | goto start  } | say %msg }
rg { %num = 1 | unset %msg  | %msg =  | %color = p | :start | if %color == p { %num2 = 9 | %num3 = 4 | %color = y | goto add } | if %color == y  { %num2 = 4 | %num3 = 9 | %color = p | goto add } | :add | if $mid(%num,1, *1) != $null { %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   | inc %num | goto start  } | say %msg }
reverse { unset %final | unset %endreverse | set %sections $token(0,32,$1-) | :revstart | if (%sections == 0) goto revend | set %reverseme $token(%sections,32,$1-) | set %length $len(%reverseme) | set %backtext $mid(%length,1,%reverseme) | dec %length 1 | :backstart | if (%length == 0) goto backend | set %tempback $mid(%length,1,%reverseme) | set %backtext %backtext $+ %tempback | dec %length 1 | goto backstart | :backend | set %reversed_text %backtext | set %temp %reversed_text | set %final %final %temp | dec %sections 1 | goto revstart | :revend | set %endreverse %final | say %final }
brain { set %i $replace($1-,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1 | :loop | set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) | inc %p | if ( $mid(%p,1,%i) != á) { inc %c } | if ( %c > 6 ) { set %c 1 } | if ( $mid(%p,1,%i) != $null ) { goto loop } | say %o | unset %o %i %p %c }
brick { %num = 1 | unset %msg | %msg =  | %color = p | :start | if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add } | if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add } | :add | if $mid(%num,1, $1-) != $null { %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,$1-) $+   | inc %num | goto start } | say %msg }
;Above color/text aliases very much thanks to To|\|iC's awesome color addons
ct echo -a Color: %ACT2
bct echo -a Color: %BCT
bgct { set %ct 0 | set %ctb 0 | :next | inc %ct | if (%ct > 15) { %ct = 0 | inc %ctb 1 } | if (%ct == %ctb) { goto next } | if (%ctb > 15) { goto done } | echo 2 $chr(3) $+ %ct $+ , $+ %ctb Color Table Number %ct $+ , $+ %ctb $+ $chr(3) | goto next | :done | unset %ct | unset %ctb }
at { set %chr.var 1  | :loop | if (%chr.var > 255) { goto done } | echo 1 Ascii %chr.var is $chr(%chr.var) | inc %chr.var 1 | goto loop | :done }
face say %FACE
umode mode $me $$1
cmode mode # $1-
l part # $1-
j { .RAW -q JOIN #$1 : $+ $2- | if (%sounds != Off) { .splay $mircdirsounds\working.wav } }
w who $$1
wi whois $1
ww whowas $$1
k kick # $$1 $2-
kb ban # $$1 3 | kick # $$1 $2-
q query $$1
send dcc send $1 $2
chat dcc chat $1
top topic # $1-
to timers off
p ctcp $$1 ping
v ctcp $$1 version
i if ($2 == $null) invite $$1 # | else { invite $$1 $2 }
m msg $$1 %PRVM $2-
n notice $$1 %PRVN $2-
shoot .auser =999 $$1 | .guser =999 $$1 3 | ignore -a $$1 3 | kick # $$1 %shlstd | notice $$1 %shlstd
rshoot .ruser =999 $$1 | ignore -r $$1 3
na names $$1
hop part # | join #$$1
part part # $1-
cycle part # %CYCLE | .timer 1 2 join #
files .play -c $me $mircdirfiles.txt 50
t1 topic # $read -l1 $mircdirtopic.txt
t2 topic # $read -l2 $mircdirtopic.txt
t3 topic # $read -l3 $mircdirtopic.txt
t4 topic # $read -l4 $mircdirtopic.txt
t5 topic # $read -l5 $mircdirtopic.txt
t6 topic # $read -l6 $mircdirtopic.txt
t7 topic # $read -l7 $mircdirtopic.txt
t8 topic # $read -l8 $mircdirtopic.txt
t9 topic # $read -l9 $mircdirtopic.txt
t10 topic # $read -l10 $mircdirtopic.txt
t11 topic # $read -l11 $mircdirtopic.txt
ta topic # $read $mircdirtopic.txt
wall wallops $1-
globops raw globops %GLBOPS $1-
global notice $$1 %GLBNO $2- %nreplies
globmsg msg $$1 %GLBMS $2- %nreplies
globme describe $$1 $2- %nrepliesa
CStatus echo 5 -s %CsStatus | echo 3 -s %version | echo 4 -s C-Script is a script by SethD | echo 3 -s ==== C-Script FlOoD PrOtEcTiOn ==== | echo 2 -s If All ON | echo 6 -s TEXT FLOOD = 5 Lines in 5 Seconds | echo 6 -s INVITE FLOOD = 3 invites in 5 seconds | echo 6 -s CTCP FLOOD = 5 ctcp's in 20 seconds | echo 6 -s NICK FLOOD = 4 Nick changes in 4 seconds | echo 5 -s %CSSEND
allIRCops { echo 5 %ALLIRCOPS | set %found 0 | set %iropn "" | set %IRCopsRAW On | who 0 o }
IRCops set %found 0 | set %iropn "" | set %IRCopsRAW On | if ($1 != $null) { echo 5 -a %IRCPS22 $1 ==== | who $1 o } | else { echo 5 -a %IRCPS22 $server ==== | who $server o }
sIRCops echo 4 -a %CSSLOGO IRCops: %found - IRCops Names: %iropn
playmsg set %msgnum 0 | set %msgnicks "" | .timer350 off | if ($chr(124) isin $$1) { play -c $me $mircdirPage\ $+ $remove($$1,$chr(124)) $+ .txt 0 } | else { play -c $me $mircdirPage\ $+ $$1 $+ .txt 0 }
playmsgs set %mlmsgs 0 | .play -c $me $mircdirmsgs.txt 0
Status echo 5 -s %stsals | echo 3 -s Sign-On Time = %sontime | echo 3 -s Your Current Sever = $server | echo 3 -s Your Current Nick = $me | echo 3 -s Your HOST = $host | echo 3 -s Your Address Mask = $address($me,3) | echo 3 -s Your IP Address  = $ip | echo 3 -s Your Current Mode = $usermode | echo 5 -s %CSSEND
MyStatus echo 4 -s %urests | echo 3 -s Current Channels = $chan(0) | echo 3 -s Current Nick = $me | echo 3 -s Your Current Mode = $usermode | echo 3 -s Current Date = $adate | echo 3 -s Current Time = $atime | echo 3 -s Current Day = $day | echo 3 -s Your Host = $host | echo 3 -s Your Address Mask = $address($me,3) | echo 3 -s Your IP Address = $IP | echo 3 -s Current Server = $server | echo 4 -s %CSSEND
flo ignore $$1 | .timer 0 1 ctcp $$1 ping | .timer 0 1 ctcp $$1 version | .timer 0 1 ctcp $$1 userinfo
e exit $1-
idle .timer 0 140 msg # ...
hide .timer 1 3 join # | part # | nick $$1
jflood .timer 0 2 join $1 | .timer 0 3 part $1
rsent disable #Send
sent enable #Send
Sey say  $+ $1- $+ 
time echo 4 $atime on $day $adate
NFLO .timer 0 2 rn | .timer 0 5 rn
1 silence *!*@* | flood 1 1 50
2 silence - | flood 3 7 20
ver say I'm using %version
rn nick $r(a,z) $+ $r(1,9) $+ $r(a,z) $+ $r(1,9) $+ $r(a,z) $+ $r(1,9) $+ $r(a,z) $+ $r(1,9) $+ $r(a,z)
wb me warmly welcomes $$1 back
fake say á
lol me is lol :╖D
brb me will be right back :╖)
hug say {{{{{{ $$1 }}}}}}
s sound $1 < $+ $1 $+ > $2-
ss set %ssfle $file="Pick a sound" $mircdirSounds\*.* | /sound %ssfle < $+ $nopath(%ssfle) $+ >
ps wavplay $file="Pick a sound" $mircdirSounds\*.*
sa play $file="Pick a File to play" $mircdirascii\*.txt 100
on { if ($me isop #) { onotice # $read $mircdirSysfiles\opnos.txt $1- } | else { set %notice.var 1 | :next | if ($opnick(%notice.var,#) == $null) { goto done } | notice $opnick(%notice.var,#) %CHNN1 $+ # Op Notice $+ %CHNN2 $1- | inc %notice.var 1 | goto next | :done } }
om { if ($me isop #) { omsg # %CHNN1 $+ # Op Msg $+ %CHNN2 $1- } | else { set %notice.var 1 | :next | if ($opnick(%notice.var,#) == $null) { goto done } | msg $opnick(%notice.var,#) %CHNN1 $+ # Op Msg $+ %CHNN2 $1- | inc %notice.var 1 | goto next | :done } }
bm amsg %BRDM $1-
bn anotice %BRDN $1-
ba ame $1- %BRDN
box say 4,4  $1- $+ ! | say 0,4  $1-  1,1!  | say 4,4  $1-  1,1! | say 0,0 1,1 $1- $+ !
seen .timer20 1 3 echo 3 -a Sorry, you haven't seen $$1 | .play -c $me $mircdirseen\ $+ $$1 $+ .txt 0
recho echo 2 -a %CSSLOGO $1-
wecho echo 4 -a %CSSLOGO $1-
cecho echo 5 -a %CSSLOGO $1-
numppl { cecho Number of users for # $+ : $nick(0,#) $+ . $opnick(0,#) ( $+ $percent($opnick(0,#),$nick(0,#)) $+ $chr(37) $+ ) ops, $vnick(0,#) ( $+ $percent($vnick(0,#),$nick(0,#)) $+ $chr(37) $+ ) voices, and $nvnick(0,#) ( $+ $percent($nvnick(0,#),$nick(0,#)) $+ $chr(37) $+ ) normal! }
tquit { set %mdiv 60 | set %hdiv 3600 | %timeon = $ctime - %signon | %totalhours = %timeon / %hdiv | if (%totalhours == 0) { %totalmins = %timeon / %mdiv | quit  $+ %CSLOGO $+  Time Used on IRC: %totalhours hour(s) - %totalmins min(s) } | else { %accum = 3600 * %totalhours | %mins = %timeon - %accum | %totalmins = %mins / %mdiv | quit  $+ %CSLOGO $+  Time Used on IRC: %totalhours hour(s) - %totalmins min(s) } }
sscan { if ($1 == $null) { set %alscanthng $server } | else { set %alscanthng $1 } | cecho Scanning  $+ %alscanthng $+  for Ops, IRCops, Enemies, and Clones... | set %ppl 0 | set %appl 0 | set %found 0 | set %enem 0 | set %frie 0 | set %clns 0 | set %clist "" | unset %scmd | unset %nclns | unset %clones | unset %iropn | unset %emnick | unset %frnick | set %SCN %alscanthng | set %SSCANRAW On | who %alscanthng }
scan { if ($1 == $null) { set %alscanthng # } | else { set %alscanthng #$1 } | cecho Scanning  $+ %alscanthng $+  for Ops, IRCops, Enemies, and Clones... | set %ppl 0 | set %fops 0 | set %nops 0 | set %appl 0 | set %vppl 0 | set %found 0 | set %enem 0 | set %frie 0 | set %clns 0 | set %clist "" | set %cbns 0 | unset %scmd | unset %nclns | unset %clones | unset %iropn | unset %emnick | unset %frnick | set %schantop %SCNCHATOP | set %SCN %alscanthng | mode %alscanthng | mode %alscanthng b | topic %alscanthng | set %SCANRAW On | who %alscanthng }
cscan { if ($1 == $null) { set %alscanthng $server } | else { set %alscanthng $1 } | echo 5 -s Scanning  $+ %alscanthng $+  for Clones... | set %clns 0 | set %clist "" | unset %nclns | unset %clones | unset %clnsaddys | set %SCN %alscanthng | set %CSCANRAW On | who %alscanthng }
report {
echo 12 -a %CSSLOGO %LSCALO Stats for  $+ %SCN $+  %RSCALO
echo 12 -a %CSSLOGO Topic: %schantop
echo 12 -a %CSSLOGO Mode: %scmd Bans: %cbns
echo 12 -a %CSSLOGO Total Users: %ppl - Ops: %fops ( $+ $percent(%fops,%ppl) $+ $chr(37) $+ ) - NonOps: %nops ( $+ $percent(%nops,%ppl) $+ $chr(37) $+ )
echo 12 -a %CSSLOGO Users Away: %appl - ( $+ $percent(%appl,%ppl) $+ $chr(37) $+ ) Voices: %vppl ( $+ $percent(%vppl,%ppl) $+ $chr(37) $+ )
echo 12 -a %CSSLOGO Friends: %frie ( $+ $percent(%frie,%ppl) $+ $chr(37) $+ ) - Friend Name(s): %frnick
echo 4 -a %CSSLOGO Enemies: %enem ( $+ $percent(%enem,%ppl) $+ $chr(37) $+ ) - Enemy Name(s): %emnick
echo 12 -a %CSSLOGO Clones: %clns ( $+ $percent(%clns,%ppl) $+ $chr(37) $+ ) - Clone Name(s): %nclns
echo 4 -a %CSSLOGO IRCops: %found ( $+ $percent(%found,%ppl) $+ $chr(37) $+ ) - IRCops Name(s): %iropn
echo 12 -a %CSSLOGO %STSDN
}
sreport {
echo 12 -a %CSSLOGO %LSCALO Stats for  $+ %SCN $+  %RSCALO
echo 12 -a %CSSLOGO Total Users: %ppl
echo 12 -a %CSSLOGO Users Away: %appl ( $+ $percent(%appl,%ppl) $+ $chr(37) $+ )
echo 12 -a %CSSLOGO Friends: %frie ( $+ $percent(%frie,%ppl) $+ $chr(37) $+ ) - Friend Name(s): %frnick
echo 4 -a %CSSLOGO Enemies: %enem ( $+ $percent(%enem,%ppl) $+ $chr(37) $+ ) - Enemy Name(s): %emnick
echo 12 -a %CSSLOGO Clones: %clns ( $+ $percent(%clns,%ppl) $+ $chr(37) $+ ) - Clone Name(s): %nclns
echo 4 -a %CSSLOGO IRCops: %found ( $+ $percent(%found,%ppl) $+ $chr(37) $+ ) - IRCops Name(s): %iropn
echo 12 -a %CSSLOGO %STSDN
}
creport { if (%clns == 0) { echo 5 -s No clones found on %SCN } | else { echo 5 -s %CSSLOGO %LSCALO Stats for  $+ %SCN $+  %RSCALO | echo 5 -s %CSSLOGO Clones: %clns - Clone Name(s): %nclns | echo 5 -s %CSSLOGO Clone(s) Addy(s): %clnsaddys | echo 5 -s %CSSLOGO %STSDN } }
code {
say $icode($1-) [C-C]
}
decode {
echo 13 -a $idecode($1-) %CCDC3
}